#==============================================================================
# READ KEYWORD VALUE
#==============================================================================
ReadKeywordValue<-function(epath, keyword) { 
	#into file string
	fs <- gt.par.read(epath)
	#line number
	line <- gt.par.fline(fs, keyword) 
	#extract value
	return(gt.par.rline(fs,line))
}